home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00017_STARTMOVIE.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  1.7 KB  |  70 lines
  1. on startMovie
  2.   global GRIDV, GRIDH, GRIDY, GRIDN, PUSHED, PUSHON, COMPLAY, REDSCORE, BLUESCORE, SOND, TURN, GAMELEN, REGTHERE, REGTXTTHERE, REGTXT, REGFILE, NB, NBB, CT, CTT, FILELIST
  3.   set REGTHERE to 0
  4.   set REGTXTTHERE to 0
  5.   set TURN to 0
  6.   set BLUESCORE to 0
  7.   set REDSCORE to 0
  8.   set the text of field "BLUESCORETXT" to "0"
  9.   set the text of field "REDSCORETXT" to "0"
  10.   set PUSHON to 0
  11.   set PUSHED to 0
  12.   set GRIDV to []
  13.   set GRIDH to []
  14.   set GRIDY to []
  15.   set GRIDN to []
  16.   set CTT to 0
  17.   set CT to 0
  18.   set NB to 29
  19.   set NBB to 73 - 35
  20.   repeat with N = 1 to 10
  21.     set CTT to CTT + 14
  22.     repeat with NN = CTT down to CTT - 13
  23.       append(GRIDN, NN)
  24.     end repeat
  25.   end repeat
  26.   repeat with NN = 1 to 10
  27.     set NB to 29
  28.     set NBB to NBB + 35
  29.     repeat with N = 1 to 14
  30.       set CT to CT + 1
  31.       set NB to NB + 36
  32.       append(GRIDH, NB)
  33.       append(GRIDY, NBB)
  34.       append(GRIDV, 0)
  35.     end repeat
  36.   end repeat
  37.   repeat with N = 1 to 20
  38.     append(GRIDV, 100)
  39.   end repeat
  40.   repeat with N = 9 to 10
  41.     puppetSprite(N, 1)
  42.     set the locH of sprite N to -50
  43.     set the locV of sprite N to -50
  44.   end repeat
  45.   repeat with N = 29 to 46
  46.     puppetSprite(N, 1)
  47.     set the locH of sprite N to -50
  48.     set the locV of sprite N to -50
  49.     updateStage()
  50.   end repeat
  51.   repeat with N = 11 to 24
  52.     puppetSprite(N, 1)
  53.     set the locH of sprite N to -50
  54.     set the locV of sprite N to -50
  55.   end repeat
  56.   updateStage()
  57.   set FILELIST to []
  58.   repeat with i = 1 to the maxinteger
  59.     set N to getNthFileNameInFolder(the pathName, i)
  60.     if N = EMPTY then
  61.       exit repeat
  62.     end if
  63.     append(FILELIST, N)
  64.   end repeat
  65.   set REGTXT to "Solsoft.txt"
  66.   set REGFILE to "QUARRY.DAT"
  67.   set NY to 0
  68.   checkupg()
  69. end
  70.